home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / convtomix.omed < prev    next >
Text File  |  1995-06-22  |  391b  |  17 lines
  1. /* convtomix */
  2. /* converts old OctaMED/tracker modules to play right under */
  3. /* the new mixing routine (transposes samples two octaves up */
  4. address 'OCTAMED_REXX'
  5. options results
  6. do cnt = 1 to 63
  7.     in_select ins cnt
  8.     in_gettype
  9.     instype = result
  10.     if (instype = "SAMPLE" | instype = "HYBRID") then do
  11.         in_gettranspose
  12.         transp = result
  13.         in_settranspose transp+24
  14.     end
  15. end
  16. in_select ins 1
  17.